'(GlobalDeclarations)

'End of (GlobalDeclarations)

Sub btnFindNode_EventClick()

Dim This : Set This = btnFindNode

Dim bRet

bRet = CxGrpTree.SetTargetNode(eboFindCriteria.Text)

If Not(bRet) Then

MsgBox "No node found where " + eboFindCriteria.Text

End If

End Sub

Sub btnSetSiteService_EventClick()

Dim This : Set This = btnSetSiteService

CxGrpTree.SiteService = eboSiteService.Text

CxGrpTree.Refresh

End Sub

Sub CxGrpTree_EventContextMenu(EventID)

Dim This : Set This = CxGrpTree

If EventID = "EVENT_EXPAND" Then

CxGrpTree.Expand False

Elseif EventID = "EVENT_COLLAPSE" Then

CxGrpTree.Collapse False

Elseif EventID = "EVENT_REFRESH" Then

CxGrpTree.Refresh

End If

End Sub

Sub CxGrpTree_EventOnSelChange()

Dim This : Set This = CxGrpTree

Dim strMsg

strMsg = "Details for node " + CxGrpTree.GetSelectedNodeAttrValue("~nodeid")

strMsg = strMsg + vbCrlf + vbCrlf

strMsg = strMsg + "Description: " + CxGrpTree.GetSelectedNodeAttrValue("~desc")

strMsg = strMsg + vbCrlf

strMsg = strMsg + "Category: " + CxGrpTree.GetSelectedNodeAttrValue("~cat")

strMsg = strMsg + vbCrlf

strMsg = strMsg + "Type: " + CxGrpTree.GetSelectedNodeAttrValue("~type")

strMsg = strMsg + vbCrlf

strMsg = strMsg + "# of Children: " + CStr(CxGrpTree.GetSelectedNodeChildCount())

eboDetails.Text = strMsg

End Sub

Sub eboSiteService_EventInitialize()

Dim This : Set This = eboSiteService

eboSiteService.Text = CxGrpTree.SiteService

End Sub